home *** CD-ROM | disk | FTP | other *** search
/ Simtel 10,000 MSDOS Shareware Programs / Simtel - 10000 MSDOS Shareware Programs (Walnut Creek)(January 1995)(Disc 2).ISO / starter / uuencode.bas < prev    next >
Encoding:
BASIC Source File  |  1994-10-05  |  4.8 KB  |  83 lines
  1. 100 REM - BASIC PROGRAM TO CREATE UUENCODE.COM v2.1 (a fast uuencoder)
  2. 105 REM UUENCODE.BAS created by w8sdz@SimTel.Coast.NET (Keith Petersen)
  3. 110 CLS:PRINT "Creating UUENCODE.COM": OPEN "UUENCODE.COM" AS #1 LEN = 1
  4. 120 FIELD #1, 1 AS A$: CHECKSUM#=0
  5. 130 FOR I = 1 TO    63
  6. 140  LINESUM#=0: LOCATE 2,3: PRINT "Countdown: "    63 - I ;
  7. 150  FOR J = 1 TO  16: READ BYTE$: BYTE = VAL("&H" + BYTE$)
  8. 160   CHECKSUM# = CHECKSUM# + BYTE: LINESUM# = LINESUM# + BYTE
  9. 170   IF (BYTE < 256) THEN LSET A$=CHR$(BYTE): PUT #1
  10. 180  NEXT J
  11. 190  READ LINETOT$: LINECHECK# = VAL("&H"+LINETOT$)
  12. 200  IF LINECHECK# = LINESUM# THEN GOTO 220
  13. 210  LOCATE 4,2: PRINT "Error in line #"  ;  260 +  10 * I: GOTO 260
  14. 220 NEXT I
  15. 230 CLOSE: READ FILETOT$ : FILECHECK# = VAL(FILETOT$)
  16. 240 IF CHECKSUM# <> FILECHECK# THEN GOTO 260
  17. 250 PRINT: PRINT "UUENCODE.COM created successfully": SYSTEM
  18. 260 PRINT: PRINT "UUENCODE.COM is not valid!": END
  19. 270 DATA EB,63, D, A,49,6E,70,75,74,20,70,61,74,68,2F,66,  5D7
  20. 280 DATA 69,6C,65,3A,20,20,49,6E,70,75,74,20,66,69,6C,65,  584
  21. 290 DATA 20,65,72,72,6F,72,2E,4F,75,74,70,75,74,20,66,69,  5F8
  22. 300 DATA 6C,65,20,65,72,72,6F,72,2E,60, D, A,65,6E,64, D,  504
  23. 310 DATA  A,4E,6F,20,61,63,74,69,6F,6E,20,65,78,69,73,74,  5B2
  24. 320 DATA 73,21,20,20,41,62,6F,72,74,69,6E,67,21, 0, 0, 1,  42C
  25. 330 DATA  0,38, 4, 0, 0,B4,30,CD,21,3C, 2,73, C,BA,B9, 4,  442
  26. 340 DATA E9,47, 1,E8,C4, 1,E9,3D, 1,E8,E2, 1,73,31,BA,FC,  82A
  27. 350 DATA  3,B9,BA, 0,E8,B3, 1,BA, 2, 1,B9,14, 0,BB, 2, 0,  559
  28. 360 DATA B4,40,CD,21,BF,7F, 0,C6, 5,50,8B,D7,B4, A,CD,21,  749
  29. 370 DATA E8,BB, 1,73, A,B4, 1,BA,41, 1,B9, 9, 0,EB,C4,BA,  6FD
  30. 380 DATA E8, 3,8B,F2,B8, 0,3D,CD,21,73, 3,E9,70, 1,A3,5D,  71B
  31. 390 DATA  1,8B,CF,2B,CE,4F,B0,5C,FD,F2,AE,FC,74, 8,8B,FE,  94D
  32. 400 DATA 80,7D, 1,3A,75, 2,47,47,8B,F7,8B,D6,BF,B4, 3,AC,  742
  33. 410 DATA  A,C0,74, 3,AA,EB,F8,B8, D, A,AB,57,8B,F2,BF,38,  813
  34. 420 DATA  4,8B,D7,AC, A,C0,75, 2,B0,2E,AA,3C,2E,75,F4,B8,  766
  35. 430 DATA 75,75,AB,B8,65, 0,89, 5,33,C9,80,3E,64, 1,FF,74,  6D2
  36. 440 DATA 25,B4,4E,CD,21,3C, 2,74,1D,3C,12,74,19,59,8B,CF,  572
  37. 450 DATA 2B,CA,BB, 2, 0, 3,CB,B4,40,CD,21,BA,4A, 1,B9,13,  633
  38. 460 DATA  0,B0, 5,E9,3D,FF,B4,3C,CD,21,59,73, 3,E9,BC, 0,  72C
  39. 470 DATA A3,5F, 1,BA,AA, 3,2B,CA,E8,A1, 0,E8,B6, 0,74,48,  742
  40. 480 DATA B1, 6,AC,8A,E0,D0,E8,D0,E8,AA,AC,8A,D0,D1,E8,D1,  B77
  41. 490 DATA E8,D1,E8,D1,E8,AA,8A,E2,AC,8A,D0,D3,E8,AA,8A,C2,  C27
  42. 500 DATA AA,83,C5, 3,3B,36,61, 1,72, 7,80,3E,63, 1, 0,75,  4D8
  43. 510 DATA 17,83,FD,2D,75, 5,E8,39, 0,B1, 6,3B,36,61, 1,72,  55B
  44. 520 DATA C1,80,3E,63, 1, 1,75,B3, B,ED,74, 9,2B,36,61, 1,  544
  45. 530 DATA 2B,EE,E8,1D, 0,BA,39, 1,B9, 8, 0,E8,3E, 0,8B,1E,  5A2
  46. 540 DATA 5F, 1,B4,3E,CD,21,B4,4C,CD,21,50,B4, 9,CD,21,58,  681
  47. 550 DATA EB,F4,BA,AA, 3,8B,CF,2B,CA,51,8B,FA,8B,C5,88, 5,  948
  48. 560 DATA B4,20,BB,60,3F,8A, 5,22,C7, 2,C4,3A,C4,75, 2,8A,  66B
  49. 570 DATA C3,AA,E2,F1,59,B8, D, A,89, 5,41,41,8B,1E,5F, 1,  681
  50. 580 DATA B4,40,CD,21,72, 6,8B,FA,47,33,ED,C3,BA,27, 1,B9,  7A4
  51. 590 DATA 12, 0,EB,30,BA,38, 4,B9,C8,AF,8B,1E,5D, 1,B4,3F,  64D
  52. 600 DATA CD,21,72,1A,8B,F2,8B,DA, 3,D8,3B,C1,74, 9,C7, 7,  77E
  53. 610 DATA  0, 0,C6, 6,63, 1, 1,89,1E,61, 1, B,C0,C3,BA,16,  498
  54. 620 DATA  1,B9,11, 0,E8, 3, 0,E9,7C,FF,50,52,51,BA,E2, 4,  6AD
  55. 630 DATA B9, 2, 0,E8,10, 0,59,5A,E8, B, 0,BA,E2, 4,B9, 2,  5B4
  56. 640 DATA  0,E8, 2, 0,58,C3,BB, 2, 0,B4,40,CD,21,C3,BE,80,  6A5
  57. 650 DATA  0,BF,E8, 3,FC,AC, A,C0,74,2F,B4,20,AC,3A,C4,76,  7B3
  58. 660 DATA FB,3C,2F,74, 4,3C,2D,75,1C,8B,D0,8B, 4,3C,3F,74,  5B1
  59. 670 DATA 1F,24,5F,3D,4F,20,8B,C2,75, B,F6,16,64, 1,46,46,  518
  60. 680 DATA AC,3A,C4,76, 6,AA,AC,EB,F8,F9,C3,C6, 5, 0,F8,C3,  9A1
  61. 690 DATA 58,BA,FC, 3,B0, 1,E9,11,FF,90,62,65,67,69,6E,20,  770
  62. 700 DATA 36,34,34,20,55,55,45,4E,43,4F,44,45,20,76,32,2E,  40C
  63. 710 DATA 30, 0,44,61,76,69,64,20,50,20,4B,69,72,73,63,68,  50C
  64. 720 DATA 62,61,75,6D,2C,20,54,6F,61,64,20,48,61,6C,6C,2C,  546
  65. 730 DATA 20,47,69,76,65,6E,20,74,6F,20,74,68,65,20,70,75,  582
  66. 740 DATA 62,6C,69,63,20,64,6F,6D,61,69,6E, 0,55,55,45,4E,  56F
  67. 750 DATA 43,4F,44,45,20,5B,2D,6F,5D,20,5B,64,3A,5D,5B,5C,  4BC
  68. 760 DATA 70,61,74,68,5C,5D,62,69,6E,61,72,79,2E,66,69,6C,  654
  69. 770 DATA 20,3C,52,45,54,55,52,4E,3E, D, A,70,72,6F,64,75,  4BB
  70. 780 DATA 63,65,73,20,62,69,6E,61,72,79,2E,55,55,45,20,6F,  58C
  71. 790 DATA 6E,20,63,75,72,72,65,6E,74,20,64,72,69,76,65,5C,  627
  72. 800 DATA 70,61,74,68, D, A,28,70,72,6F,76,69,64,69,6E,67,  5BE
  73. 810 DATA 20,62,69,6E,61,72,79,2E,55,55,45,20,64,6F,65,73,  58D
  74. 820 DATA 6E,27,74,20,61,6C,72,65,61,64,79,20,65,78,69,73,  5E4
  75. 830 DATA 74,29,2E, D, A,2D,6F,20,73,77,69,74,63,68,20,66,  4B6
  76. 840 DATA 6F,72,63,65,73,20,6F,76,65,72,77,72,69,74,65,20,  643
  77. 850 DATA 6F,66,20,65,78,69,73,74,69,6E,67,20,62,69,6E,61,  61A
  78. 860 DATA 72,79,2E,55,55,45, D, A,24,54,68,69,73,20,70,72,  4DD
  79. 870 DATA 6F,67,72,61,6D,20,72,65,71,75,69,72,65,73,20,44,  60A
  80. 880 DATA 4F,53,20,56,32,2E,30,20,6F,72,20,68,69,67,68,65,  4CE
  81. 890 DATA 72,2E, D, A,24, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,   DB
  82. 900 DATA 100845
  83.